home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol136 / checkcsh.bas < prev    next >
Encoding:
BASIC Source File  |  1986-12-15  |  7.5 KB  |  171 lines
  1. 4000 COLOR 7,0: REM ******************************************************************************************************
  2. 4010 REM    'CHECKCSH' SUBROUTINE TO ENTER CASH TRANSACTIONS AND JOURNAL ENTRY ADJUSTMENTS FOR THE BOOKKEEPING SYSTEM
  3. 4020 REM  ****************************************************************************************************************
  4. 4040 COLOR 7,0: CLS
  5. 4050 PRINT: PRINT "  AUDTRAIL FILE will be created or "
  6. 4060 PRINT "  appended to existing one on PAMBOOKS."
  7. 4070 PRINT "  Insert PAMBOOKS diskette on Drive B,"
  8. 4080 PRINT "  then press F10 key to continue."
  9. 4090 CK$ = INKEY$: IF CK$ = "" THEN GOTO 4090
  10. 4100 CK = ASC(CK$): IF CK = 0 THEN GOTO 4120
  11. 4110     BEEP: BEEP: GOTO 4080   'NOT F10 KEY
  12. 4120 FKEY = ASC(RIGHT$(CK$,1))   'TEST 2ND BYTE FOR F10 FUNCTION KEY
  13. 4130 IF FKEY <> 68 THEN GOTO 4080
  14. 4140 OPEN "B:AUDTRAIL.REC" FOR APPEND AS #3
  15. 4145 ON ERROR GOTO 3070
  16. 4150 COLOR 7,0: CLS
  17. 4160 PRINT "      CASH/CHECKING/J.E. ADJUSTMENTS"
  18. 4170 PRINT "         AUDIT TRAIL TRANSACTIONS"
  19. 4180 PRINT
  20. 4190 PRINT "  CODE       TRANSACTION"
  21. 4200 PRINT "  ----       -----------"
  22. 4210 PRINT
  23. 4220 PRINT "   1   88-Received Into Cash Account"
  24. 4230 PRINT "   2   99-Paid Out of Cash Account"
  25. 4240 PRINT "   3   51-Deposited Into Checking"
  26. 4250 PRINT "   4   51-Interest Rec'd on Checking"
  27. 4260 PRINT "   5   51-Withdrawal From Checking"
  28. 4270 PRINT "   6   41-Check Issued"
  29. 4280 PRINT "   7   66-Journal Entry Debit Adj."
  30. 4290 PRINT "   8   77-Journal Entry Credit Adj."
  31. 4300 PRINT
  32. 4310 PRINT "   9   Job Complete. Exit to Main Menu"
  33. 4320 PRINT
  34. 4330 COLOR 0,7: PRINT "  Enter CODE of transaction type: ";:  Y = CSRLIN: X = POS(0)
  35. 4340 FIELDMAX% = 1: NUM.ONLY% = TRUE%: DEC.MINUS% = FALSE%: GOSUB 330
  36. 4350 CHOICE = VAL(DATU$)
  37. 4360 IF (CHOICE>0) AND (CHOICE<10) THEN GOTO 4390
  38. 4370     COLOR 31,0: PRINT "  Choices are 1 thru 9, try again"
  39. 4380     GOTO 4340
  40. 4390 ON CHOICE GOTO 4410,4450,4570,4610,4650,4690,4530,4490,5560
  41. 4400 GOTO 4370
  42. 4410 TC$ = "88"
  43. 4420 CN% = 0
  44. 4430 C$ = "1   88-Received Into Cash Account"
  45. 4440 GOSUB 4750: GOTO 4330
  46. 4450 TC$ = "99"
  47. 4460 CN% = 0
  48. 4470 C$ = "2   99-Paid Out Of Cash Account"
  49. 4480 GOSUB 4750: GOTO 4330
  50. 4490 TC$ = "77"
  51. 4500 CN% = 0
  52. 4510 C$ = "8   77-Journal Entry Credit Adj."
  53. 4520 GOSUB 4750: GOTO 4330
  54. 4530 TC$ = "66"
  55. 4540 CN% = 0
  56. 4550 C$ = "7   66-Journal Entry Debit Adj."
  57. 4560 GOSUB 4750: GOTO 4330
  58. 4570 TC$ = "51"
  59. 4580 CN% = -1
  60. 4590 C$ = "3   51-Deposited Into Checking"
  61. 4600 GOSUB 4750: GOTO 4330
  62. 4610 TC$ = "51"
  63. 4620 CN% = -2
  64. 4630 C$ = "4   51-Interest Rec'd On Checking"
  65. 4640 GOSUB 4750: GOTO 4330
  66. 4650 TC$ = "51"
  67. 4660 CN% = -3
  68. 4670 C$ = "5   51-Withdrawal From Checking"
  69. 4680 GOSUB 4750: GOTO 4330
  70. 4690 TC$ = "41"
  71. 4700 C$ = "6   41-Check Issued"
  72. 4710 GOSUB 4750: GOTO 4330
  73. 4720 REM  **************************************************************************************************************
  74. 4730 REM                                       DATA ENTRY SUBROUTINE
  75. 4740 REM  **************************************************************************************************************
  76. 4750 CLS
  77. 4760 PRINT "  Code -     Transaction"
  78. 4770 PRINT: PRINT SPC(4);C$
  79. 4780 PA$ = SPACE$(30)
  80. 4790 PRINT
  81. 4800 PRINT: PRINT "  Press ENTER KEY ONLY to use today's"
  82. 4810 TDATE$ = SPACE$(8): LSET TDATE$ = DATE$: YR$ = MID$(DATE$,9,2): MID$(TDATE$,7,2) = YR$
  83. 4820 PRINT "  date or enter another date."
  84. 4830 PRINT: COLOR 0,7: PRINT "  Today's date is ";
  85. 4840 PRINT "[";TDATE$;"]";: COLOR 7,0: Y = CSRLIN: X = POS(0)
  86. 4850 FIELDMAX% = 8: NUM.ONLY% = TRUE%: DEC.MINUS% = TRUE%: GOSUB 330
  87. 4860 IF DATU$ = "" THEN TD$ = TDATE$: GOTO 4920
  88. 4870 TD$ = DATU$
  89. 4880 IF LEN(TD$) = 8 THEN GOTO 4920
  90. 4890 MO$ = LEFT$(TD$,2): DA$ = MID$(TD$,3,2): YR$ = MID$(TD$,5,2)
  91. 4900 TD$ = MO$ + "-" + DA$ + "-" + YR$
  92. 4910 LOCATE Y,X+1: COLOR 0,7: PRINT TD$: COLOR 7,0
  93. 4920 PRINT: PRINT: PRINT "  Desc.";: Y = CSRLIN: X = POS(0)
  94. 4930 FIELDMAX% = 30: NUM.ONLY% = FALSE: GOSUB 330
  95. 4940 LSET PA$ = DATU$
  96. 4950 PRINT: PRINT: PRINT "  Major Account No. ";: Y = CSRLIN: X = POS(0)
  97. 4960 FIELDMAX% = 4: NUM.ONLY% = TRUE%: DEC.MINUS% = FALSE%: GOSUB 330
  98. 4970 M% = LEN(DATU$)
  99. 4980 IF M% = 4 THEN GOTO 5020
  100. 4990     ERRMSG$ = "  Major Acct. No. is 4 digits. Retry!!"
  101. 5000     GOSUB 5480
  102. 5010     GOTO 4960
  103. 5020 LACTM% = VAL(DATU$)
  104. 5030 PRINT: PRINT: PRINT "    Sub-Account No. ";: Y = CSRLIN: X = POS(0)
  105. 5040 ERRMSG$ = "": GOSUB 5480
  106. 5050 FIELDMAX% = 3: NUM.ONLY% = TRUE%: DEC.MINUS% = FALSE%: GOSUB 330
  107. 5060 LACTS% = VAL(DATU$)
  108. 5070 PRINT: PRINT: PRINT "            Amount. ";: Y = CSRLIN: X = POS(0)
  109. 5080 FIELDMAX% = 10: NUM.ONLY% = TRUE%: DEC.MINUS% = TRUE%: GOSUB 330
  110. 5090 LAMT! = VAL(DATU$)
  111. 5100 LOCATE Y,X+1
  112. 5110 COLOR 0,7: PRINT USING "#####,.##-";LAMT!: COLOR 7,0
  113. 5120 AC$ = SPACE$(1)
  114. 5130 PA% = 0
  115. 5140 PC$ = SPACE$(4)
  116. 5150 PRINT
  117. 5160 IF TC$ <> "41" THEN GOTO 5310
  118. 5170     PRINT "       Check Number ";: Y = CSRLIN: X = POS(0)
  119. 5180     FIELDMAX% = 4: NUM.ONLY% = TRUE%: DEC.MINUS% = FALSE%: GOSUB 330
  120. 5190     CN% = VAL(DATU$)
  121. 5200     PRINT "       Payee Code   ";: Y = CSRLIN: X = POS(0)
  122. 5210     FIELDMAX% = 4: NUM.ONLY% = TRUE%: DEC.MINUS% = FALSE%: GOSUB 330
  123. 5220     M% = LEN(DATU$)
  124. 5230     IF M% = 4 THEN GOTO 5270
  125. 5240        ERRMSG$ = "  Payee Code is 4 digits. Retry!!"
  126. 5250        GOSUB 5480
  127. 5260        GOTO 5210
  128. 5270     PRINT "       Payee Rec.No. ";: Y = CSRLIN: X = POS(0)
  129. 5280     ERRMSG$ = "": GOSUB 5480
  130. 5290     FIELDMAX% = 3: NUM.ONLY% = TRUE%: DEC.MINUS% = FALSE%: GOSUB 330
  131. 5300     PA% = VAL(DATU$)
  132. 5310 PRINT: PRINT "  Review above for accuracy, then"
  133. 5320 PRINT "  Enter: (A)ccept (R)eject (C)ancel";: Y = CSRLIN: X = POS(0)
  134. 5330 FIELDMAX% = 1: NUM.ONLY% = FALSE%: GOSUB 330
  135. 5340 IF DATU$ = "A" THEN GOTO 5380
  136. 5350 IF DATU$ = "R" THEN GOTO 5440
  137. 5360 IF DATU$ = "C" THEN GOTO 4150
  138. 5370 PRINT: COLOR 31,0: PRINT "  I need an A, R or C reply!!": COLOR 7,0: GOTO 5330
  139. 5380 TAMT=LAMT
  140. 5390 BDIW=0
  141. 5400 BAMT=0
  142. 5410 GOSUB 320  'WRITE AUDIT TRAIL RECORD
  143. 5420 TOTALS!(CHOICE) = TOTALS!(CHOICE) + LAMT!
  144. 5430 COUNTS%(CHOICE) = COUNTS%(CHOICE) + 1
  145. 5440 CLS: RETURN
  146. 5450 REM ***************************************************************************************************************
  147. 5460 REM                                DISPLAY FLASHING ERROR MESSAGE ON LINE 25
  148. 5470 REM ***************************************************************************************************************
  149. 5480 LOCATE 25,1: PRINT SPC(39);: IF ERRMSG$ = "" THEN GOTO 5510
  150. 5490 LOCATE 25,1: COLOR 31,0: BEEP: BEEP:
  151. 5500 PRINT ERRMSG$;: COLOR 7,0
  152. 5510 LOCATE Y,X
  153. 5520 RETURN
  154. 5530 REM  **************************************************************************************************************
  155. 5540 REM PRINT DATA ENTRY TOTALS FOR EACH TRANSACTION CODE THEN CLOSE 'AUDTRAIL' DISKETTE FILE AND RETURN TO 'PAMUTILY'
  156. 5550 REM  **************************************************************************************************************
  157. 5560 LPRINT "DATA ENTRY TOTALS FOR EACH TRANSACTION CODE"
  158. 5570 LPRINT SPC(9);"TODAY'S DATE IS ";DATE$
  159. 5580 LPRINT: LPRINT SPC(7);"CODE";SPC(3);"COUNT";SPC(5);"AMOUNT"
  160. 5590 FOR CHOICE = 1 TO 8
  161. 5600     LPRINT SPC(8);CHOICE;SPC(5);:
  162. 5610     LPRINT USING "###";COUNTS%(CHOICE);: LPRINT SPC(3);:
  163. 5620     LPRINT USING "######,.##-";TOTALS!(CHOICE)
  164. 5630     LPRINT
  165. 5640 NEXT
  166. 5650 LPRINT CHR$(12)
  167. 5660 CLOSE #3
  168. 5670 GOTO 260
  169. 5680 REM  --------------------------------------------------------------------------------------------------------------
  170. 9000 GOTO 9000  'CHAIN MERGE AREA LAST STATEMENT
  171. ----------------------------------------------------------------------